home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1988 January
/
Ahoy_Magazine_88-01_1988_Double_L.d64
/
Fade Away 64-2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
569b
|
22 lines
1 rem ==================================
2 rem commodares problem #45-2 :
3 rem fade away
4 rem solution by
5 rem norman richards
6 rem ==================================
10 rem ---- first program --------------
20 fora=100to1step-1:print"[147]first":forb=1toa:next:print"[147]":nexta
100 rem ---- second program -----------
110 w$="second"
120 l=len(w$):c$="":d$=""
130 for i=1 to l:for b=1 to 5
140 print c$" "w$" "
150 for a=1 to 50 : next
160 print d$" "w$" "
170 for a=1 to 50 : next
180 next b
190 d=d+1:if d=2 then d=0:w$=right$(w$,len(w$)-1):goto 210
200 w$=left$(w$,len(w$)-1)
210 next i
220 print"[147]"